--NRJ
function Nrj()
        if ( CLIENT ) then 
        Nrj = vgui.Create("HTML") 
        Nrj:SetPos(-10,-10)
        Nrj:SetSize( 10, 10 )
        Nrj:OpenURL("http://www.nrj.no/webradio/nrj/norway.php")
        Nrj.Paint = function() 
        surface.SetDrawColor( 0, 0, 0, 0 ) 
        surface.DrawRect( 0, 0, Nrj:GetWide(), Nrj:GetTall() )
        end
        chat.AddText( Color(0, 148, 255 ), "[Radio]", Color(255, 106, 0 ), " Loading station Nrj." )
        end
end
--EUROPA PLUS
function europaplus()
        if ( CLIENT ) then 
        Europaplus = vgui.Create("HTML")
        Europaplus:SetPos(-10,-10)
        Europaplus:SetSize( 10, 10 )
        Europaplus:OpenURL("http://www.europaplus.ru/online/player.php?q=128")
        Europaplus.Paint = function() 
        surface.SetDrawColor( 0, 0, 0, 0 ) 
        surface.DrawRect( 0, 0, Europaplus:GetWide(), Europaplus:GetTall() )
        end
        chat.AddText( Color(0, 148, 255 ), "[Radio]", Color(255, 106, 0 ), " Loading station Europa+ (Russia)." )
        end
end
--WIREMOD.RU RADIO
function Wmru()
        if ( CLIENT ) then 
        Wmru = vgui.Create("HTML")
        Wmru:SetPos(-10,-10)
        Wmru:SetSize( 10, 10 )
        Wmru:OpenURL("http://87.245.252.78:27016/live.mp3")
        Wmru.Paint = function() 
        surface.SetDrawColor( 0, 0, 0, 0 ) 
        surface.DrawRect( 0, 0, Wmru:GetWide(), Wmru:GetTall() )
        end
        chat.AddText( Color(0, 148, 255 ), "[Radio]", Color(255, 106, 0 ), " Loading station Wiremod.ru Radio (WARNING! IT'S STATION NOW DOESN'T WORK!)" )
        end
end
--ENERGY
function energy()
        if ( CLIENT ) then 
        energy = vgui.Create("HTML")
        energy:SetPos(-10,-10)
        energy:SetSize( 10, 10 )
        energy:OpenURL("http://www.101.ru/?an=port_channel_mp3&channel=99&bit=2")
        energy.Paint = function() 
        surface.SetDrawColor( 0, 0, 0, 0 ) 
        surface.DrawRect( 0, 0, energy:GetWide(), energy:GetTall() )
        end
        chat.AddText( Color(0, 148, 255 ), "[Radio]", Color(255, 106, 0 ), " Loading station Energy (Russia)." )
        end
end
function nrjoff()
if ( CLIENT ) then
    if Nrj then
        Nrj:Remove()
        Nrj = nil 
    else return end  
end
end
function Europaplusoff()
if ( CLIENT ) then
    if Europaplus then
        Europaplus:Remove()
        Europaplus = nil 
    else return end  
end
end
function wmruoff()
if ( CLIENT ) then
    if Wmru then
        Wmru:Remove()
        Wmru = nil 
    else return end  
end
end
function energyoff()
if ( CLIENT ) then
    if energy then
        energy:Remove()
        energy = nil 
    else return end  
end
end
function radio_off()
if ( CLIENT ) then
if Nrj then
RunConsoleCommand( "nrjoff" )
elseif Europaplus then
RunConsoleCommand( "Europaplusoff" )
elseif wmru then
RunConsoleCommand( "wmruoff" )
elseif energy then
RunConsoleCommand( "energyoff" )
else return end
chat.AddText( Color(0, 148, 255 ), "[Radio]", Color(255, 50, 0 ), " All radio stations disabled." )
end
end
--COMMANDS
concommand.Add("radio_nrj", Nrj)
concommand.Add("nrjoff", nrjoff)
concommand.Add("radio_europaplus", europaplus)
concommand.Add("Europaplusoff", Europaplusoff)
concommand.Add("radio_wmru", Wmru)
concommand.Add("wmruoff", wmruoff)
concommand.Add("radio_energy", energy)
concommand.Add("energyoff", energyoff)
concommand.Add("radio_off", radio_off)
--NOTICE
function Notice()
chat.AddText( Color( 0, 148, 255 ), "[Radio]", 
Color( 255, 106, 0 ), " Thank you for use my radio! To enable radio type in console radio_<station here>. Stations: Nrj, Europaplus, WMRU, Energy. To stop type in console radio_stop")
end
timer.Create("radio_notice", 300, 100000, Notice)
